home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_22 < prev    next >
Text File  |  1996-06-28  |  734b  |  52 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. L=100
  28. R_x(l_1,R_1,R_2)=(R_1 + R_2)*(L - l_1)/l_1
  29. dl_1 = 0.05, dR_1 = 0.005, dR_2 = 0.01
  30. dR_x(l_1,R_1,R_2) = abs(diff(R_x,l_1))*dl_1 + abs(diff(R_x,R_1))*dR_1 + abs(diff(R_x,R_2))*dR_2
  31. dR_x(50.85,7,0)
  32. dR_x(49.5,7,0)
  33. dR_x(49.7,7,0)
  34. dR_x(51.4,8,0)
  35. dR_x(50.25,8,0)
  36. dR_x(49.6,8,0)
  37.  
  38. dR_x(50.25,50,2)
  39. dR_x(49.85,50,1)
  40. dR_x(49.4,50,0)
  41. dR_x(50.8,50,3)
  42. dR_x(53.4,50,9)
  43. dR_x(50.4,50,2)
  44.  
  45. dR_x(38.9,100,10)
  46. dR_x(50,90,0)
  47. dR_x(48.2,40,8)
  48. dR_x(50.9,30,5)
  49. dR_x(53.1,20,2)
  50. dR_x(51.1,10,2)
  51.  
  52.